10 REM CHARACTER DEMO - DAN PINAL›15 POKE 106,PEEK(106)-8:SET=(PEEK(106)+4)*256:GRAPHICS 0:POKE 756,SET/256:POKE 752,1›20 DLIST=PEEK(560)+256*PEEK(561):POKE DLIST+3,68›25 FOR L1=DLIST+6 TO DLIST+28:POKE L1,4:NEXT L1›30 FOR L1=0 TO 327:READ X:POKE SET+L1,X:NEXT L1›40 DIM COUNT(20,1),BUG$(10),H$(16),BOOM$(10),E$(2),M$(5)›50 FOR L1=33 TO 42:BUG$(L1-32)=CHR$(L1):NEXT L1›60 FOR L1=47 TO 62:H$(L1-46)=CHR$(L1):NEXT L1›70 BOOM$="?@ABCDEFGH":E$=H$›80 M$=" +,-."›90 POKE 708,216:POKE 709,52:POKE 710,250›200 COUNT=INT(RND(0)*20+1)›210 FOR L1=1 TO COUNT›220 H=INT(13*RND(0))*2+5:COUNT(L1,0)=H›230 V=INT(17*RND(0)+1):COUNT(L1,1)=V›240 IF L1=1 THEN 280›250 FOR L2=1 TO L1-1›260 IF COUNT(L1,0)=COUNT(L2,0) AND COUNT(L1,1)=COUNT(L2,1) THEN POP :GOTO 220›270 NEXT L2›280 POSITION H,V:? E$:NEXT L1›290 FOR L1=1 TO COUNT›300 X=COUNT(L1,0):Y=COUNT(L1,1)›310 FOR L2=1 TO 4›320 FOR L3=1 TO 4›330 POSITION X,Y:? H$((L2-1)*4+1,(L2-1)*4+2)›340 POSITION X,Y:? H$((L2-1)*4+3,(L2-1)*4+4)›350 SOUND 0,155-L2,10,8+L2:SOUND 1,155-L2,10,8+L2:POKE 53768,192:NEXT L3:NEXT L2›360 SOUND 0,0,0,0:SOUND 1,0,0,0›370 CHAR=INT(5*RND(0)):CHAR=CHAR*2+1›380 POSITION X,Y›390 ? BUG$(CHAR,CHAR+1);›400 NEXT L1›410 FOR L1=1 TO COUNT›420 H=COUNT(L1,0):V=COUNT(L1,1)›430 FOR L2=0 TO 4›440 SOUND 0,20,8,14-2*L2›450 SOUND 1,227,6,14-L2›460 POSITION H,V:? BOOM$(L2*2+1,L2*2+2);›470 FOR W=1 TO 5:NEXT W›480 NEXT L2›490 SOUND 0,0,0,0:SOUND 1,0,0,0›500 NEXT L1›510 H=0:V=INT(20*RND(0))›520 FOR L1=0 TO 35:POSITION H+L1,V:? M$›530 SOUND 0,100+L1,12,8:SOUND 1,135-L1,12,8:POKE 53768,192›540 NEXT L1›550 SOUND 0,0,0,0:SOUND 1,0,0,0:POSITION 35,V:?›560 GOTO 200›10000 DATA 0,0,0,0,0,0,0,0,4,69,20,53,245,241,192,0,64,68,80,112,124,60,12,0,8›10010 DATA 138,38,58,250,242,192,0,128,136,96,176,188,60,12,0,128›10015 DATA 44,9,169,1,9,40,136,8,224›10020 DATA 128,168,0,128,160,136,8,11,2,6,22,86,80,64,32,224,128›10025 DATA 144,148,149,5,1,0,0,22›10030 DATA 14,62,242,240,0,0,0,148,176,188,143,15,0,8,8,168,21›10035 DATA 10,1,0,0,0,0,17,4›10040 DATA 129,84,170,21,63,59,59,4,21,85,170,84,0,0,17,4,16,64›10045 DATA 0,0,3,15,63,255,255›10050 DATA 63,15,3,192,240,252,255,255,252,240,192,0,63,63,63›10055 DATA 63,63,63,0,0,252,252,252,252,252›10060 DATA 252,0,3,15,63,253,253,63,15,3,192,240,252,127,127›10065 DATA 252,240,192,0,63,63,62,62,63,63›10070 DATA 0,0,252,252,188,188,252,252,0,3,15,62,250,250,62,15›10075 DATA 3,192,240,188,175,175,188,240,192›10080 DATA 0,63,53,53,53,53,63,0,0,252,92,92,92,92,252,0,3,15›10085 DATA 62,248,248,62,15,3,192›10090 DATA 240,188,47,47,188,240,192,0,63,49,52,52,49,63,0,0›10095 DATA 252,76,28,28,76,252,0,0,0›10100 DATA 12,13,1,0,1,0,0,192,192,0,16,128,128,0,0,1,4,8,12,4,2,0,0,192,48›10110 DATA 16,32,16,64,0,16,64,66,72,72,72,66,16,4,1,129,33,33›10115 DATA 33,129,4,14,32,192,0›10120 DATA 48,0,192,4,16,4,48,2,0,1,12,208,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›